home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swaga_c.zip
/
CMDLINE.SWG
/
0004_Get Command Line #3.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
291b
|
15 lines
Program CommandLine; { CL.PAS }
Var
CharCount,
i :Word;
begin
CharCount := Mem[PrefixSeg:$80]; { number of input Characters}
WriteLn('Input Characters: ', CharCount );
For i := 1 to CharCount do Write( CHR( Mem[PrefixSeg:$80+i] ));
WriteLn;
end.